home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / simplfra.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  347 b   |  14 lines
  1. 1 REM SIMPLIFRAC
  2. 2 REM TELECHARGE SUR WILLYTEL
  3. 3 REM 24H/7H AU 62.93.74.05
  4. 10 PRINT "SIMPLIF FRACTIONS A/B";CHR$(13);
  5. 20 INPUT "A:";A:INPUT "B:";B
  6. 30 PRINT A;"/";B;"=";CHR$(13);
  7. 40 G=A:H=B:GOSUB 100
  8. 50 G=G/D:H=H/D
  9. 60 PRINT G;"/";H:GOTO 10
  10. 100 IF A<B THEN T=A:A=B:B=T
  11. 110 R=A-B*INT(A/B)
  12. 120 IF R=0 THEN D=B:RETURN
  13. 130 A=B:B=R:GOTO 110
  14.